From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 May 1993 17:40:01 +0000 (+0000)
Subject: (calendar-mode-map): Add arrow key bindings.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96372
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e9c78f076c44155b7e289e4d376e3650f9def6b3;p=emacs.git

(calendar-mode-map): Add arrow key bindings.
---

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 3a8a00e0c52..3dca292329f 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1455,6 +1455,10 @@ the inserted text.  Value is always t."
   (define-key calendar-mode-map "\C-x[" 'calendar-backward-year)
   (define-key calendar-mode-map "\C-f"  'calendar-forward-day)
   (define-key calendar-mode-map "\C-n"  'calendar-forward-week)
+  (define-key calendar-mode-map [left]  'calendar-backward-day)
+  (define-key calendar-mode-map [up]    'calendar-backward-week)
+  (define-key calendar-mode-map [right] 'calendar-forward-day)
+  (define-key calendar-mode-map [down]  'calendar-forward-week)
   (define-key calendar-mode-map "\e}"   'calendar-forward-month)
   (define-key calendar-mode-map "\C-x]" 'calendar-forward-year)
   (define-key calendar-mode-map "\C-a"  'calendar-beginning-of-week)